home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 June / 64er_Magazin_93-06_1993_Markt__Technik_de_Side_B.d64 / no border.src (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  7KB  |  442 lines
  1. 10 +$c000
  2. 15 tobgn=$c000
  3. 20 ;
  4. 100 tosb1=$00;spriteblock 1
  5. 101 tosb2=$0a;    ''   2
  6. 102 tosb3=$14;    ''   3
  7. 103 tosb4=$1e;    ''   4
  8. 105 tospp=$4c00+$03f8;spritepointer
  9. 107 tosad1=(sb1*$40)+$4140;spriteblockaddresse 1
  10. 108 tosad2=(sb2*$40)+$4140;  '' 2
  11. 109 tosad3=(sb3*$40)+$4140;  '' 3
  12. 110 tosad4=(sb4*$40)+$4140;  '' 4
  13. 120 tof1=bgn+$03f0;zwischenspeicher fuer spriteinhalt
  14. 130 tof2=bgn+$03f3;         ''
  15. 140 tof3=bgn+$03f6;         ''
  16. 150 tof4=bgn+$03f9;         ''
  17. 155 tot1=bgn+$03ff;zwischenspeicher fuer tab
  18. 160 tovib=$96;bank $4000-$8000   ($dd00)
  19. 170 toscreen=32+16+8;bildram bei $0c00 und hires bei $2000 (+vib)
  20. 180 tohir=$00;hires off
  21. 190 tomul=$00;multi off
  22. 999 ;
  23. 1000  (NULL)
  24. 1010  (NULL)sresc;spriteinhalt bergen
  25. 1020  (NULL)sinit;sprites initialisiern
  26. 1030  mid$#<(int1);neue interruptaddresse
  27. 1040  (NULL)$0314
  28. 1050  mid$#>(int1)
  29. 1060  (NULL)$0315
  30. 1070  mid$#vib;vic-bank
  31. 1080  (NULL)$dd00
  32. 1090  mid$#screen;bildram
  33. 1100  (NULL)$d018
  34. 1110  mid$#$1b+hir;bitmap
  35. 1120  (NULL)$d011
  36. 1130  mid$#$c8+mul;multi
  37. 1140  (NULL)$d016
  38. 1142  mid$#76;bildram highbyte
  39. 1144  (NULL)$288
  40. 1146  mid$#$00;geisterbyte
  41. 1148  (NULL)$3fff+$4000;loeschen
  42. 1150  mid$#$2f;rasterzeile fuer vic-interupt
  43. 1160  (NULL)$d012
  44. 1170  mid$#$7f;bis auf vic alle interuptquellen
  45. 1180  (NULL)$dc0d;stillegen
  46. 1190  mid$#$00
  47. 1200  (NULL)$dc0e
  48. 1210  mid$#$01
  49. 1220  (NULL)$d01a;und auf geht's
  50. 1230  (NULL)
  51. 1240  (NULL)
  52. 1250 ;
  53. 1260 ;
  54. 1300 int1 len#$0a;verzoegerung
  55. 1310 b1310 (NULL)
  56. 1320  (NULL)b1310
  57. 1330  (NULL)
  58. 1332  right$t1
  59. 1334  chr$t1
  60. 1336  (NULL)
  61. 1340  (NULL)line;sideborder ausblenden
  62. 1350  (NULL)sit2;sprites neu initialisiern
  63. 1360  (NULL)srestore;sprites wiederherstellen
  64. 1370  mid$#$01
  65. 1380  (NULL)$d019
  66. 1390  mid$#$1b+hir
  67. 1400  (NULL)$d011
  68. 1410  mid$#$2f
  69. 1420  (NULL)$d012
  70. 1430  (NULL)$ea31;und normaler irq
  71. 1440 ;
  72. 1500 line
  73. 1510  (NULL)l1
  74. 1520  (NULL)l2;uebergang von zeile -1 nach 0 (bildschirm)
  75. 1530  (NULL)l1
  76. 1540  (NULL)l1
  77. 1550  (NULL)l1
  78. 1560  (NULL)l1
  79. 1570  (NULL)l1
  80. 1580  (NULL)l1;zeile 6
  81. 1590  (NULL)l2;zeile 7+8
  82. 1600  (NULL)l3;neue sprites+skoordinaten  (1)
  83. 1610  (NULL)l1
  84. 1620  (NULL)l1
  85. 1630  (NULL)l1
  86. 1640  (NULL)l1
  87. 1650  (NULL)l1;zeile 14
  88. 1660  (NULL)l4;zeile 15+16 sowie neue zeiger fuer sprites
  89. 1670  (NULL)l1
  90. 1680  (NULL)l1
  91. 1690  (NULL)l1
  92. 1700  (NULL)l1
  93. 1710  (NULL)l1
  94. 1720  (NULL)l1
  95. 1730  (NULL)l2;zeile 23+24
  96. 1740  (NULL)l1
  97. 1750  (NULL)l1
  98. 1760  (NULL)l1
  99. 1770  (NULL)l1
  100. 1780  (NULL)l1
  101. 1790  (NULL)l1
  102. 1800  (NULL)l2;zeile 31+32
  103. 1810  (NULL)l3;neue sprites+skoordinaten  (2)
  104. 1820  (NULL)l1
  105. 1830  (NULL)l1
  106. 1840  (NULL)l5;neue spritezeiger
  107. 1850  (NULL)l1
  108. 1860  (NULL)l1
  109. 1870  (NULL)l2;zeile 39+40
  110. 1880  (NULL)l1
  111. 1890  (NULL)l1
  112. 1900  (NULL)l1
  113. 1910  (NULL)l1
  114. 1920  (NULL)l1
  115. 1930  (NULL)l1
  116. 1940  (NULL)l2;zeile 47+48
  117. 1950  (NULL)l3;neue sprites+skoordinaten  (3)
  118. 1960  (NULL)l1
  119. 1970  (NULL)l1
  120. 1980  (NULL)l1
  121. 1990  (NULL)l1
  122. 2000  (NULL)l1
  123. 2010  (NULL)l2;zeile 55+56
  124. 2020  (NULL)l5;neue spritezeiger
  125. 2030  (NULL)l1
  126. 2040  (NULL)l1
  127. 2050  (NULL)l1
  128. 2060  (NULL)l1
  129. 2070  (NULL)l1
  130. 2080  (NULL)l2;zeile 63+64
  131. 2090  (NULL)l1
  132. 2100  (NULL)l1
  133. 2110  (NULL)l1
  134. 2120  (NULL)l1
  135. 2130  (NULL)l1
  136. 2140  (NULL)l1
  137. 2150  (NULL)l2;zeile 71+72
  138. 2160  (NULL)l3;neue sprites+skoordinaten  (4)
  139. 2170  (NULL)l1
  140. 2180  (NULL)l1
  141. 2190  (NULL)l1
  142. 2200  (NULL)l1
  143. 2210  (NULL)l5;neue spritezeiger
  144. 2220  (NULL)l2;zeile 79+80
  145. 2230  (NULL)l1
  146. 2240  (NULL)l1
  147. 2250  (NULL)l1
  148. 2260  (NULL)l1
  149. 2270  (NULL)l1
  150. 2280  (NULL)l1
  151. 2290  (NULL)l2;zeile 87+88
  152. 2300  (NULL)l1
  153. 2310  (NULL)l1
  154. 2320  (NULL)l1
  155. 2330  (NULL)l1
  156. 2340  (NULL)l1
  157. 2350  (NULL)l1
  158. 2360  (NULL)l2;zeile 95+96
  159. 2370  (NULL)l3;neue sprites+skoordinaten  (5)
  160. 2380  (NULL)l1
  161. 2390  (NULL)l5;neue spritezeiger
  162. 2400  (NULL)l1
  163. 2410  (NULL)l1
  164. 2420  (NULL)l1
  165. 2430  (NULL)l2;zeile 103+104
  166. 2440  mid$sad1+$40;1.reihe der
  167. 2450  (NULL)sad1;spritereihe 7 zur
  168. 2460  mid$sad1+$41;1.reihe der spritereihe 6 umpoken
  169. 2470  (NULL)sad1+1
  170. 2480  mid$sad1+$42
  171. 2490  (NULL)sad1+2;spritespalte 1
  172. 2500  (NULL)l11
  173. 2510  mid$sad2+$40;1.reihe der
  174. 2520  (NULL)sad2;spritereihe 7 zur
  175. 2530  mid$sad2+$41;1.reihe der spritereihe 6 umpoken
  176. 2540  (NULL)sad2+1
  177. 2550  mid$sad2+$42
  178. 2560  (NULL)sad2+2;spritespalte 2
  179. 2570  (NULL)l11
  180. 2580  mid$sad3+$40;1.reihe der
  181. 2590  (NULL)sad3;spritereihe 7 zur
  182. 2600  mid$sad3+$41;1.reihe der spritereihe 6 umpoken
  183. 2610  (NULL)sad3+1
  184. 2620  mid$sad3+$42
  185. 2630  (NULL)sad3+2;spritespalte 3
  186. 2640  (NULL)l11
  187. 2650  mid$sad4+$40;1.reihe der
  188. 2660  (NULL)sad4;spritereihe 7 zur
  189. 2670  mid$sad4+$41;1.reihe der spritereihe 6 umpoken
  190. 2680  (NULL)sad4+1
  191. 2690  mid$sad4+$42
  192. 2700  (NULL)sad4+2;spritespalte 4
  193. 2710  (NULL)l11
  194. 2720  (NULL)l1
  195. 2730  (NULL)l1
  196. 2740  (NULL)l2;zeile 111+112
  197. 2750  (NULL)l3;neue sprites+skoordinaten  (6)
  198. 2760  (NULL)l1
  199. 2770  (NULL)l1
  200. 2780  (NULL)l1
  201. 2790  (NULL)l1
  202. 2800  (NULL)l1
  203. 2810  (NULL)l2;zeile 119+120
  204. 2820  (NULL)l5;neue spritezeiger
  205. 2830  (NULL)l1
  206. 2840  (NULL)l1
  207. 2850  (NULL)l1
  208. 2860  (NULL)l1
  209. 2870  (NULL)l1
  210. 2880  (NULL)l2;zeile 127+128
  211. 2890  (NULL)l1
  212. 2900  (NULL)l1
  213. 2910  (NULL)l1
  214. 2920  (NULL)l1
  215. 2930  (NULL)l1
  216. 2940  (NULL)l1
  217. 2950  (NULL)l2;zeile 135+136
  218. 2960  (NULL)l3;neue sprites+skoordinaten  (7)
  219. 2970  (NULL)l1
  220. 2980  (NULL)l1
  221. 2990  (NULL)l1
  222. 3000  (NULL)l5;neue spritezeiger
  223. 3010  (NULL)l1
  224. 3020  (NULL)l2;zeile 143+144
  225. 3030  (NULL)l1
  226. 3040  (NULL)l1
  227. 3050  (NULL)l1
  228. 3060  (NULL)l1
  229. 3070  (NULL)l1
  230. 3080  (NULL)l1
  231. 3090  (NULL)l2;zeile 151+152
  232. 3100  (NULL)l1
  233. 3110  (NULL)l1
  234. 3120  (NULL)l1
  235. 3130  (NULL)l1
  236. 3140  (NULL)l1
  237. 3150  (NULL)l1
  238. 3160  (NULL)l2;zeile 159+160
  239. 3170  (NULL)l3;neue sprites+skoordinaten  (8)
  240. 3180  (NULL)l5;neue spritezeiger
  241. 3190  (NULL)l1
  242. 3200  (NULL)l1
  243. 3210  (NULL)l1
  244. 3220  (NULL)l1
  245. 3230  (NULL)l2;zeile 167+168
  246. 3240  (NULL)l1
  247. 3250  (NULL)l1
  248. 3260  (NULL)l1
  249. 3270  (NULL)l1
  250. 3280  (NULL)l1
  251. 3290  (NULL)l1
  252. 3300  (NULL)l2;zeile 175+176
  253. 3310  (NULL)l3;neue sprites+skoordinaten  (9)
  254. 3320  (NULL)l1
  255. 3330  (NULL)l1
  256. 3340  (NULL)l1
  257. 3350  (NULL)l1
  258. 3360  (NULL)l1
  259. 3370  (NULL)l4;zeile 183+184 sowie neue zeiger fuer sprites
  260. 3380  (NULL)l1
  261. 3390  (NULL)l1
  262. 3400  (NULL)l1
  263. 3410  (NULL)l1
  264. 3420  (NULL)l1
  265. 3430  (NULL)l1
  266. 3440  (NULL)l2;zeile 191+192
  267. 3450  (NULL)l1
  268. 3460  (NULL)l1
  269. 3470  (NULL)l1
  270. 3480  (NULL)l1
  271. 3490  (NULL)l1
  272. 3500  mid$#$13+hir
  273. 3510  (NULL)$d011;unteren bildschirmrand ausblenden
  274. 3520  (NULL)
  275. 3530  (NULL)
  276. 3540  (NULL)
  277. 3550  (NULL)
  278. 3560  (NULL)
  279. 3570  (NULL)
  280. 3580  (NULL)
  281. 3590  (NULL)l12
  282. 3600  (NULL)l1
  283. 3610  (NULL)
  284. 3620 ;
  285. 9999 ;
  286. 10000 sresc peek#$02;1.zeile der spritereihe 6
  287. 10010 b10010 mid$sad1,x;nach $c3f0-$c3fb zwischen-
  288. 10020  (NULL)f1,x;speichern , da diese
  289. 10030  mid$sad2,x;zweifach benutzt wird
  290. 10040  (NULL)f2,x
  291. 10050  mid$sad3,x
  292. 10060  (NULL)f3,x
  293. 10070  mid$sad4,x
  294. 10080  (NULL)f4,x
  295. 10090  (NULL)
  296. 10100  (NULL)b10010
  297. 10110  (NULL)
  298. 10120 ;
  299. 10130 sinit mid$#$0f;farbe
  300. 10140  (NULL)$d02b
  301. 10150  (NULL)$d02c
  302. 10160  (NULL)$d02d
  303. 10170  (NULL)$d02e
  304. 10180  mid$#$0c;multicolor 1
  305. 10190  (NULL)$d025
  306. 10200  mid$#$0b;multicolor 2
  307. 10210  (NULL)$d026
  308. 10220  mid$#$ff;multicolor on/off
  309. 10230  (NULL)$d01c
  310. 10240  mid$#$00;expand off
  311. 10250  (NULL)$d01d; fuer x
  312. 10260  (NULL)$d017; fuer y
  313. 10265  mid$#$f0;sprites 4-7 ein
  314. 10266  (NULL)$d015
  315. 10270  mid$#$e0;x-koordinaten
  316. 10280  (NULL)$d008
  317. 10290  mid$#$00
  318. 10300  (NULL)$d00a
  319. 10310  mid$#$58
  320. 10320  (NULL)$d00c
  321. 10330  mid$#$70
  322. 10340  (NULL)$d00e
  323. 10350  mid$#$d0;bit 8 fuer x-koordinaten
  324. 10360  (NULL)$d010
  325. 10370 sit2 mid$#sb1;spritepointer festlegen
  326. 10380  (NULL)spp+4
  327. 10390  mid$#sb2
  328. 10400  (NULL)spp+5
  329. 10410  mid$#sb3
  330. 10420  (NULL)spp+6
  331. 10430  mid$#sb4
  332. 10440  (NULL)spp+7
  333. 10450  mid$#$2d;y-koordinate fuer die ersten 4 sprites
  334. 10460  (NULL)$d009
  335. 10470  (NULL)$d00b
  336. 10480  (NULL)$d00d
  337. 10490  (NULL)$d00f
  338. 10500  (NULL)
  339. 10510 ;
  340. 10600 srestore peek#$02;urspruengliche zeile 1 der
  341. 10610 b10610 mid$f1,x;spritereihe 6 wiederherstellen
  342. 10620  (NULL)sad1,x
  343. 10630  mid$f2,x
  344. 10640  (NULL)sad2,x
  345. 10650  mid$f3,x
  346. 10660  (NULL)sad3,x
  347. 10670  mid$f4,x
  348. 10680  (NULL)sad4,x
  349. 10690  (NULL)
  350. 10700  (NULL)b10610
  351. 10710  (NULL)
  352. 10720 ;
  353. 20000 +$c400
  354. 20001 ;
  355. 20002 l1
  356. 20010  mid$$d012;neuen y-koordinatenpointer
  357. 20020  (NULL);fuer tab berechnen
  358. 20030  (NULL)#$32;und
  359. 20040  (NULL)
  360. 20050  (NULL);in
  361. 20060  (NULL)
  362. 20070  (NULL)
  363. 20080  (NULL)t1;$c3ff zwischenspeichern
  364. 20090 l12 mid$#$c8+mul
  365. 20100  peek#$c7+mul
  366. 20110 l11 len#$00
  367. 20120  (NULL)
  368. 20130  chr$$d016;border aus
  369. 20140  right$$d016
  370. 20150  (NULL)
  371. 20160 ;
  372. 20170 ;
  373. 21000 l2
  374. 21010  mid$#$c8+mul
  375. 21020  peek#$c7+mul
  376. 21030  len#$00
  377. 21040  (NULL)
  378. 21050  (NULL)
  379. 21060  (NULL)
  380. 21070  (NULL)
  381. 21080  (NULL)
  382. 21090  (NULL)
  383. 21100  (NULL)
  384. 21110  (NULL)
  385. 21120  (NULL)
  386. 21130  (NULL)
  387. 21140  (NULL)
  388. 21150  (NULL)
  389. 21160  (NULL)$d016;border aus
  390. 21170  (NULL)$d016,y
  391. 21180  (NULL)$d016
  392. 21190  (NULL)$d016
  393. 21200  (NULL)
  394. 21210  (NULL)
  395. 21220 ;
  396. 21230 ;
  397. 22000 l3
  398. 22010  peekt1;neu y koordinaten
  399. 22020  mid$tab,x;fuer sprites
  400. 22030  (NULL)$d009;aus tabelle holen
  401. 22040  (NULL)$d00b
  402. 22050  (NULL)$d00d
  403. 22060  (NULL)$d00f
  404. 22070  (NULL)
  405. 22080  (NULL)
  406. 22090  chr$$d016;border aus
  407. 22100  right$$d016
  408. 22110  (NULL)
  409. 22120 ;
  410. 22130 ;
  411. 23000 l4
  412. 23010  right$spp+4;neue spritepointer
  413. 23020  right$spp+5
  414. 23030  right$spp+6
  415. 23040  right$spp+7
  416. 23050  mid$#$c8+mul
  417. 23060  peek#$c7+mul
  418. 23070  len#$00
  419. 23080  (NULL)$d016;border aus
  420. 23090  (NULL)$d016,y
  421. 23100  (NULL)$d016
  422. 23110  (NULL)$d016
  423. 23120  (NULL)
  424. 23130  (NULL)
  425. 23140 ;
  426. 24000 l5
  427. 24010  right$spp+4;neue spritepointer
  428. 24020  right$spp+5
  429. 24030  right$spp+6
  430. 24040  right$spp+7
  431. 24050  (NULL)
  432. 24060  (NULL)
  433. 24070  chr$$d016;border aus
  434. 24080  right$$d016
  435. 24090  (NULL)
  436. 24100 ;
  437. 30000 ;tabelle fuer y-koordinaten der sprites
  438. 30010 tab
  439. 30020 fn$42,$57,$6c,$00
  440. 30030 fn$81,$96,$ab,$00
  441. 30040 fn$c0,$d5,$ea
  442.